﻿Imports System.Xml
Imports System.IO

Public Class Form1
    Private trab As New _Trabalhador
    Private leitura As IO.StreamReader
    Private caminho As String = "C:\SISPAT\tab_patrimonio.txt"
    Private strLinha As String


    Private Sub LeXml()
        '*** Declara Variavel que lerá o documento XML
        Dim objXml As New XmlDocument
        '*** Declara Variavel indicara o caminho da XML no servidor web
        Dim CaminhoXml As String = "C:WebSitesLeituraDeXmlXmlMedicos.xml"
        '*** Adiciono no Metodo 'LoadXml' do objeto 'objXml' o caminho do arquivo no servidor
        objXml.Load(CaminhoXml)

        '*** Lê os Nohs específicos de dentro do Noh Pai 'Medicos' os Nohs Filhos
        Dim MedicoNome As String = objXml.SelectSingleNode("Medicos").ChildNodes(0).InnerText
        Dim MedicoEspec As String = objXml.SelectSingleNode("Medicos").ChildNodes(1).InnerText
        Dim MedicoCrm As String = objXml.SelectSingleNode("Medicos").ChildNodes(2).InnerText

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        caminho = "C:\Users\leandro.silva.MTE\Desktop\SATE123\Tra.txt"
        leitura = File.OpenText(caminho)
        'Leitura = New IO.StreamReader(caminho.Value)
        leitura = New IO.StreamReader(caminho, System.Text.Encoding.GetEncoding("ISO-8859-1"))

        'faz um loop dentro das linhas para uma variavel
        While (leitura.Peek() > -1)
            'toda a linha atual para uma variavel
            strLinha = leitura.ReadLine.Replace("'", ".")
            If strLinha <> "" Then
                With trab
                    Try
                        .nmCompleto = strLinha.Substring(0, 99).Trim.ToUpper
                        .edCompleto = strLinha.Substring(100, 99).Trim.ToUpper
                        .nuCPF = strLinha.Substring(200, 11).Trim.ToUpper
                        .nuRG = strLinha.Substring(211, 20).Trim.ToUpper
                        Try
                            .dtNascimento = strLinha.Substring(242, 19).Trim.ToUpper
                        Catch ex As Exception
                            .dtNascimento = Now.Date
                        End Try
                        .emEmail = strLinha.Substring(250, 50).Trim.ToUpper
                        .nuTelefone1 = strLinha.Substring(300, 50).Trim.ToUpper
                        .nuTelefone2 = strLinha.Substring(350, 50).Trim.ToUpper
                        .ctCNH = strLinha.Substring(411, 2).Trim.ToUpper
                        .stPNE = strLinha.Substring(413, 2)
                        .dsPNE = strLinha.Substring(415, 49).Trim.ToUpper
                        Try
                            .dtCadastro = strLinha.Substring(465, 19).Trim
                        Catch ex As Exception
                            .dtCadastro = Now.Date
                        End Try
                        .idEscolaridade = 5
                        .insereTrabalhador()

                    Catch ex As Exception

                    End Try
                    'Nome do campo	Iniciar	Largura
                    'Nome	1	100
                    'Endereco	101	100
                    'CPF	201	11
                    'RG	212	20
                    'Nasc	232	19
                    'email	251	50
                    'foneRes	301	50
                    'foneCel	351	50
                    'Escolaridade	401	11
                    'cnh	412	2
                    'deficiente	414	2
                    'tpDeficiencia	416	50
                    'dt_Cadastro	466	19

                    
                End With


            End If
        End While
        leitura.Close()
        MsgBox("ok")
    End Sub
End Class